﻿Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class repProveedores
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim reporte As New ReportDocument
        reporte.Load(Server.MapPath("repProveedores.rpt"))
        'Instanciamos la clase
        Dim capanegocios As New ProveedorBL
        'Instanciamos la entidad 
        Dim objeto As New BE.ProveedorBE

        'Establecemos el origen de datos del reporte
        reporte.SetDataSource(capanegocios.ListarProveedores.Tables("LosProveedores"))
        'Establecemos el reporte a mostrar en el visor
        'crvRepProveedores.ReportSource = reporte
        'crvRepProveedores.RefreshReport()
        'Liberamos recursos
        capanegocios = Nothing
        objeto = Nothing
    End Sub
End Class